home *** CD-ROM | disk | FTP | other *** search
/ Dream Season 1996 - Flor…a's National Championship / Florida's National Championship on CD-ROM - Dream Season 1996.iso / mac / Dream Season '96 / Dream Season '96.DXR / 00005_record book scripts.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  2.4 KB  |  66 lines
  1. on RecordList TreeLevel, LineNumber
  2.   global gList, gListIndex, RecListIndexCat, RecListIndexSubCat, RecListIndexSubCat2
  3.   if TreeLevel < 2 then
  4.     set the visible of sprite 6 to 0
  5.   end if
  6.   if TreeLevel < 3 then
  7.     set the visible of sprite 7 to 0
  8.   end if
  9.   if TreeLevel < 4 then
  10.     set the visible of sprite 8 to 0
  11.   end if
  12.   set the text of cast "Record Book Data" to " "
  13.   set the itemDelimiter to ","
  14.   if TreeLevel = 0 then
  15.     set the text of cast "Record Book Cat" to line 1 to 2 of gList & RETURN
  16.     set RecListIndexCat to line 1 to 2 of gListIndex
  17.   else
  18.     if TreeLevel = 1 then
  19.       set L to line LineNumber of RecListIndexCat
  20.       repeat with i = 1 to the number of items in L
  21.         set n to integer(item i of L)
  22.         put line n of gList into line i of Names
  23.         put line n of gListIndex into line i of index
  24.       end repeat
  25.       set the text of cast "Record Book SubCat" to Names & RETURN
  26.       set RecListIndexSubCat to index
  27.       set the visible of sprite 6 to 1
  28.     else
  29.       if TreeLevel = 2 then
  30.         set L to line LineNumber of RecListIndexSubCat
  31.         repeat with i = 1 to the number of items in L
  32.           set n to integer(item i of L)
  33.           put line n of gList into line i of Names
  34.           put line n of gListIndex into line i of index
  35.         end repeat
  36.         set the text of cast "Record Book SubCat2" to Names & RETURN
  37.         set RecListIndexSubCat2 to index
  38.         set the visible of sprite 7 to 1
  39.       else
  40.         if TreeLevel = 3 then
  41.           set fName to line LineNumber of RecListIndexSubCat2
  42.           set fSubDir to fName
  43.           repeat while the number of chars in fName < 3
  44.             set fName to "0" & fName
  45.           end repeat
  46.           repeat while the number of chars in fSubDir < 3
  47.             set fSubDir to "0" & fSubDir
  48.           end repeat
  49.           delete char -30000 of fSubDir
  50.           put MakePath("RECORDS:TEXT:" & fSubDir & ":" & fName & ".TXT")
  51.           set FileObj to FileIO(mnew, "read", MakePath("RECORDS:TEXT:" & fSubDir & ":" & fName & ".TXT"))
  52.           if objectp(FileObj) then
  53.             set data to FileObj(mReadFile)
  54.             FileObj(mdispose)
  55.             if data = EMPTY then
  56.               set data to " "
  57.             end if
  58.             set the text of cast "Record Book Data" to data & RETURN
  59.             set the visible of sprite 8 to 1
  60.           end if
  61.         end if
  62.       end if
  63.     end if
  64.   end if
  65. end
  66.